library(corrplot)
x<-read.csv("硒.csv",head=TRUE)
y<-read.csv("品质.csv",head=TRUE)
c<-cor(x,y)
corrplot(c,method="color",addCoef.col="black")